home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1998 June / Software of the Month Club 1998 June.iso / pc / dos / games / dom1 / line.rpp < prev    next >
Text File  |  1998-04-15  |  310b  |  23 lines
  1. {lines}
  2.  
  3. randomize;
  4.  
  5. line(0,0,319,199);
  6.  
  7.  
  8. var n: number;
  9. var x1: number;
  10. var y1: number;
  11. var x2: number;
  12. var y2: number;
  13.  
  14. loop(n=1 to 1000)
  15.   x1 := rand(0, 319);
  16.   y1 := rand(0, 199);
  17.   x2 := rand(0, 319);
  18.   y2 := rand(0, 199);
  19.   setcolor(rand(1, 255));
  20.   line(x1, y1, x2, y2);
  21.   
  22. endl;
  23.